home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_302_zApp < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.7 KB  |  80 lines
  1. { %filename% -- application methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %Appname%App.  The 'z' prefix on this module marks%    %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit %unitname%;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL,
  18.     z%AppName%Intf,
  19.     %AppName%Intf,
  20.     %for each menu gen usesDialogs%
  21.     ResourceDefs;
  22.  
  23. {----------}
  24. Implementation
  25.  
  26. {----------}
  27. Procedure Z%Appname%App.I%Appname%App;
  28. Begin
  29.     IApplication (4, 20480, 2048);
  30.  
  31.     %for each dialog gen createModeless%
  32. End; {I%Appname%App}
  33.  
  34. {----------}
  35. Procedure Z%Appname%App.SetUpMenus;
  36. Begin
  37.     inherited SetUpMenus;
  38.     %for each menu gen setup%
  39.  
  40.     %for each menu gen addPopup%
  41. End; {SetUpMenus}
  42.  
  43. {----------}
  44. Procedure Z%Appname%App.CreateDocument;
  45. Var
  46.     theDocument:%    %C%Appname%Doc;
  47. Begin
  48.     New (theDocument);
  49.     with theDocument do begin
  50.         I%Appname%Doc (self, true);
  51.         NewFile;
  52.     end; {with}
  53. End; {CreateDocument}
  54.  
  55. {----------}
  56. Procedure Z%Appname%App.OpenDocument    (macSFReply:    SFReply);
  57. Var
  58.     theDocument:%    %C%Appname%Doc;
  59. Begin
  60.     New (theDocument);
  61.     with theDocument do begin
  62.         I%Appname%Doc (self, true);
  63.         OpenFile (macSFReply);
  64.     end; {with}
  65. End; {OpenDocument}
  66.  
  67. %for each menu gen doItems%
  68. {----------}
  69. Procedure Z%Appname%App.DoCommand    (theCommand:    longint);
  70. Begin
  71.     case theCommand of
  72.         0:    ;
  73.         %for each menu gen handleItems%
  74.         otherwise
  75.             inherited DoCommand (theCommand);
  76.     end; {case}
  77. End; {DoCommand}
  78.  
  79. End. {%unitname%}
  80.